Ｋ　Ｃｏｍｐｉｌｅｒ ――――――――――――――――――――――――――――――――――――――― Ｉ／Ｏ　１９８３年１０月号掲載 ＦＭ−８ Ｋコンパイラ　”ＫＣＭＰ” マシン語　＄２０００−＄３ＦＦＦ　Ｓ＝＄２０００ ランタイム　　”ＲＵＮＴ” マシン語　＄６Ｄ００−＄６ＦＦＦ 起動方法 ＣＬＥＡＲ１０，＆Ｈ１ＦＦＦ ＬＯＡＤＭ”” ＬＯＡＤＭ”” コンパイル ＥＸＥＣ＆Ｈ２０００ オブジェクト実行 ＥＸＥＣ＆Ｈ４０００ ――――――――――――――――――――――――――――――――――――――― 拡張性豊かな６８０９コンパイラ ――――――――――――――― “Ｋ”はＭＣ6809をＣＰＵとするシステムで動かせるコンパイラです。 コンパイラは“Ｋ”で記述されたソース・プログラムを ＭＣ6809のオブジェクトに直接変換します。 “Ｋ”は本コンパイラのために命名したもので、 整数型ＢＡＳＩＣに類似していますが、 引数を使用した手続き、関数、コール、REPEAT、WHILE、 IF、THEN、ELSEなどの拡張がなされています。 生成されるオブジェクトは、6809の特徴を生かし、 位置自由（ポジション・インディペンデント）であり、 オブジェクト・プログラムが使用する ランタイム・ルーチンのハードウェアに依存する部分は、 １文字の入出力と１行入力のみであり、 コンパイルしたオブジェクトを 他のシステムで容易に動かすことができます。 ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ Ｋ　Ｃｏｍｐｉｌｅｒの特長 ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ “Ｋ”は整数型の非構造化言語であり、 命令形式は標準ＢＡＳＩＣと同一です。 ＢＡＳＩＣと異なる点をまとめると次のようになります。 (１)文番号がない。文の区切りが、セミコロン“；”である。 (２)構造化ステートメントが拡張されている。 (３)IF文の有効範囲の指定方法が異なる。 (４)手続き（サブルーチン）に対し、引数が使える。 (５)ユーザーのサブルーチンに対し、引数が使える。 (６)配列に１バイト配列と２バイト配列がある。 (７)FOR −NEXTのNEXT文で、変数を指定できない。 (８)PRINT文 の詳細が異なる。 (９)INPUT、GETの形式が異なる。 (10)END文 がない。 ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ 　ＢＡＳＩＣとの相異点 ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ (１)ラベルと文の区切り ＢＡＳｌＣではGOTO文、GOSUB文 の飛び先を 文番号で指定しますが、 “Ｋ”には文番号の概念がなく、ラベルを使用します。 ラベルは英字で始まる英数字列で、 ラベル名のすぐ後にセミコロンを書くことでその場所に定義されます。 ・――――――――――――――――――――――・ ｜■■■ＢＡＳＩＣ■■■｜■■■■Ｋ■■■■■｜ ｜―――――――――――＋――――――――――｜ ｜ 10 GOTO 20 ｜ GOTO L20 ｜ ｜ 20 GOSUB 30 ｜ L20; ｜ ｜ 30 RETURN ｜ GOSUB L30 ｜ ｜ ｜ L30; ｜ ｜ ｜ RETURN ｜ ・――――――――――――――――――――――・ １行に複数の文を書く場合のセパレータが、 ＢＡＳＩＣではコロン“：”だが “Ｋ”ではセミコロン“；”を使う。 ・――――――――――――――――――――――・ ｜■■■ＢＡＳＩＣ■■■｜■■■■Ｋ■■■■■｜ ｜―――――――――――＋――――――――――｜ ｜ 10 A=10:B=20 ｜ A=10;B=20 ｜ ・――――――――――――――――――――――・ (２)ＲＥＰＥＡＴ、ＷＨＩＬＥ 標準的なＢＡＳＩＣにはない REPEAT文、WHILE文 が使用できる。 一般形は、 　　・――――――――――――――――・ ｜ REPEAT ｜ ｜ 文 ｜ ｜ UNTIL 条件式 ｜ 　　・――――――――――――――――・ 　　・――――――――――――――――・ ｜ WHILE 粂件式 ｜ ｜ 文 ｜ ｜ WEND ｜ 　　・――――――――――――――――・ です。 REPEAT文は条件が成立するまで、 WHILE は条件が成立している間、 REPEAT−UNTIL、 WHILE−WEND で囲まれている文を実行します。 コンパイラはこれらの文をスタックを使わないオブジェクトに展開します。 したがって、REPEAT節、WHILE節 への飛び込み、 飛び出しは自由に行なうことができます。 ・――――――――――――――――――――――・ ｜■■■Ｋ■■■｜■■■展開されるコード■■■｜ ｜―――――――＋――――――――――――――｜ ｜REPEAT ｜L01 EQU * ｜ ｜ I=I+1 ｜ LDD I ｜ ｜UNTILI>1000 ｜ ADDD #1 ｜ ｜ ｜ STD I ;I=I+1 ｜ ｜ ｜ LDD I ｜ ｜ ｜ SUBD #1000 ｜ ｜ ｜ BLE L01 ; ifI<=1000 ｜ ｜ ｜ then L01 ｜ ・――――――――――――――――――――――・ ・――――――――――――――――――――――・ ｜■■■Ｋ■■■｜■■■展開されるコード■■■｜ ｜―――――――＋――――――――――――――｜ ｜WHILE I<=1000 ｜L01 LDD I ｜ ｜ I=I+1 ｜ SUBD #1000 ｜ ｜WEND ｜ LBGT L02 ｜ ｜ ｜ LDD I ｜ ｜ ｜ ADDD #1 ｜ ｜ ｜ STD L I ｜ ｜ ｜ BRA L01 ｜ ｜ ｜L02 EQU * ｜ ・――――――――――――――――――――――・ (３)ＩＦ文＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ＢＡＳＩＣのIF文は１行という制約があるが、 ＫではIF文の有効範囲をFIで明示することにより、 THEN節、ELSE節の複数文化を許しています。 IF文のネストには制限はないが、 １つのIFに対し必らず対応するFIがなくてはなりません。 ・――――――――――――――――――――――・ ｜■■■ＢＡＳＩＣ■■■｜■■■■Ｋ■■■■■｜ ｜―――――――――――＋――――――――――｜ ｜10 IF A>B THEN 40 ｜IF A<=B THEN ｜ ｜20 C=B:D=A ｜C=B;D=A ｜ ｜30 GOTO 50 ｜ELSE ｜ ｜40 C=A:D=B ｜ C=A;D=B ｜ ｜50 ： ｜FI ｜ ｜　　　： ｜： ｜ ・――――――――――――――――――――――・ (４)ＧＯＳＵＢ文＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ GOSUB 〈ラベル〉〔引数１，引数２，…，引数ｎ〕 という形式でサブルーチンに引数を渡せます。 ・――――――――――――――――――――――・ ｜■■■■■■■■■■Ｋ■■■■■■■■■■■｜ ｜――――――――――――――――――――――｜ ｜〔例〕 GOSUB ALPHA [Z,A,"ABCD"] ｜ ｜――――――――――――――――――――――｜ ｜ 〈展開されるコード〉 ｜ ｜ LDD #2 ｜ ｜ PUSH D ｜ ｜ LDD A ｜ ｜ PUSH D ｜ ｜ LEAX 1000 ｜ ｜ ｜UNTIL〈条件式〉 ｜ ｜ ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜WHILE〈粂件式〉 ｜WHILE I<1000 ｜条件が成立している間ループ ｜ ｜ ｜ ｜ ｜ ｜　文　　 　 　　　｜I=I+1 ｜ ｜ ｜ ｜ ｜ ｜ ｜WEND ｜WEND ｜ ｜ ｜――――――――――――――――――――＋――――――――――――――――｜ ｜FOR〈変数〉=〈初期値〉TO〈最終値〉 ｜繰り返し ｜ ｜ 〔STEP〈きざみ値〉〕 ｜ ｜ ｜ 文 ｜ ｜ ｜ ｜ ｜ ｜NEXT ｜ ｜ ｜――――――――――――――――――――＋――――――――――――――――｜ ｜IF〈条件式〉THEN ｜IF A=A'THEN ｜条件が成立していると文１を ｜ ｜ ｜ B='B';C='C' ｜成立しないときは文２を実行する。｜ ｜ 文１ ｜ELSE ｜ ｜ ｜ELSE ｜ B='D';C='E' ｜ ｜ ｜　　　　　　　　 ｜FI ｜ ｜ ｜ 文２ ｜ ｜ ｜ ｜ ｜ ｜ ｜ ｜FI ｜ ｜ ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜CALL〈ｱﾄﾞﾚｽ〉 ｜CALL $F000 ｜ユーザーサブルーチン、 ｜ ｜ ｜ ｜システム・サブルーチンのコール ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜POKE〈ｱﾄﾞﾚｽ〉,〈値〉 ｜POKE $200,B+3 ｜アドレスに値をストア ｜ ｜PRINT 出力要素〔，…〕｜PRINT"ABC",A ｜ＣＲＴに対するプリント・アウト ｜ ｜CODE〈値〉〔,…〕 ＊｜CODE$34,$1C,$17 ｜値を ﾌﾟﾛｸﾞﾗﾑのこの文の位置に展開｜ ・―――――――――――――――――――――――――――――――――――――・ 　 　　　　　　　　　　　　　　　　　　関数 ・―――――――――――――――――――――――――――――――――――――・ ｜■■■一■般■形■■■｜■使■用■例■■｜■■■■機■■■■■■能■■■■｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜PEEK（〈ｱﾄﾞﾚｽ〉） ｜PEEK($1000) ｜ｱﾄﾞﾚｽ のﾒﾓﾘ 内を値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜RND（〈式〉） ｜RNDF(100) ｜０〜式の値−１の一様乱数を発生 ｜ ｜ ｜ ｜０≦RND(ｎ)＜ｎ ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜INPUT ｜　　　 　　　 ｜ｷｰﾎﾞｰﾄﾞより入力する数値を ｜ ｜ ｜ ｜値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜GET ｜　　　　　　　　｜ｷｰが押されるまで待ち、押された ｜ ｜　　　　　　　　　　　｜ ｜ｷｰの ASCIIｺｰﾄﾞを値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜NOT（〈式〉） ｜NOT(A>1) ｜論理否定演算 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ABS（〈式〉） 　｜ABS(A+B) ｜絶対値 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜-〈式〉 ｜-100 ｜負数 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜LOW（〈式〉〉 ＊｜ ｜式の下位ﾊﾞｲﾄを値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜HIGH（〈式〉） ＊｜ ｜式の上位ﾊﾞｲﾄを値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ADR（変数） ＊｜ ｜変数のｱﾄﾞﾚｽを値とする ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜SGN（〈式〉） ＊｜ ｜式の符号を値とする。 ｜ ｜ ｜ ｜0は0を値とする。 ｜ ・―――――――――――――――――――――――――――――――――――――・ 　　　　　　　　　　　ＰＲＩＮＴ文中で使用できる関数 ・―――――――――――――――――――――――――――――――――――――・ ｜■■■一■般■形■■■｜■使■用■例■■｜■■■■機■■■■■■能■■■■｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜/ ｜ ｜改行子 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜CHR$(〈式〉) ｜CHR$(4) ｜式の値を ASCIIｺｰﾄﾞとして出力 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜HEX$(〈式〉) ｜HEX$(-121) ｜式の値を16進４桁で出力 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜HEX2$(〈式〉) ｜HEX2$("A") ｜式の値を16進２桁で出力 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜SPC$(〈式〉) ｜SPC$(3) ｜式の値の数の ｽﾍﾟｰｽを出力 　｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜"〈文字列〉" ｜"HITOMI" ｜""で囲まれた部分を出力 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜#〈式１〉,〈式２〉 ｜#4,A ｜〈式１〉の ｽﾍﾟｰｽをとって ｜ ｜　　　　　　　　　 ｜ ｜〈式２〉を右ずめ出力。 ｜ ・―――――――――――――――――――――――――――――――――――――・ 　　　　　　　　　　　　　　　　コメント ・―――――――――――――――――――――――――――――――――――――・ ｜■■■一■般■形■■■｜■使■用■例■■｜■■■■機■■■■■■能■■■■｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ (* *) ｜ (*REMARK*) ｜ 注 釈 ｜ ・―――――――――――――――――――――――――――――――――――――・ ＊：追加予定 　　　　　　　　　　　　　　　　演算子 ・―――――――――――――――――――――――――――――――――――――・ ｜■■■一■般■形■■■｜■使■用■例■■｜■■■■機■■■■■■能■■■■｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ * ｜X=X2*3 ｜ 乗算演算子 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ / ｜X=Y/3 ｜ 除　　〃 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ + ｜X=X+1 ｜ 加 　〃 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ - ｜X=X-1 ｜ 減 　〃 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ > ｜X>1　 ｜ 関係演算子 ｜ ｜―――――――――――＋――――――――｜　　　　　　　　　　　　　　　　｜ ｜ >= ｜X>=1 ｜ ｜ ｜―――――――――――＋――――――――｜　　　　　　　　　　　　　　　　｜ ｜ < ｜X<1 ｜ ｜ ｜―――――――――――＋――――――――｜　　　　　　　　　　　　　　　　｜ ｜ <= ｜X<=1 ｜ ｜ ｜―――――――――――＋――――――――｜　　　　　　　　　　　　　　　　｜ ｜ = ｜X=1 ｜ ｜ ｜―――――――――――＋――――――――｜　　　　　　　　　　　　　　　　｜ ｜ <> ｜X<>1 ｜ ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ AND ｜X=1 AND X=2 ｜ 論理演算子 ｜ ｜―――――――――――＋――――――――＋――――――――――――――――｜ ｜ OR ｜X=1 OR X=2 ｜ ｜ ・―――――――――――――――――――――――――――――――――――――・ 　　　　　優先順位は乗除、加減、関係、論理の順 (10)ＥＮＤ文＝＝＝＝＝＝＝＝＝＝＝＝＝ ＢＡＳＩＣにはシステムに戻るEND文 がありますが、 “Ｋ”にはEND文 はありません。 従ってシステムに戻るにはCALL命令を使うか、 スタックのレベルがもとに戻っていれば、 RETURN命令を使うことによリシステムに戻るようにします。 ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ 　　操作法（ＦＭ−８版） ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝ (１)ＢＡＳＩＣのエディタを使って、 　　ＲＥＭ（注釈）文の形式で、“Ｋ”の文を作成します。 　　必要があれば，カセットまたはディスクヘSAVEをします。 　　一度SAVEしたものは、LOADして使えます。 　　作成する前に、 　　　CLEAR10,&H1FFF[RET] 　　としておけば、コンパイラを壊すことかありません。 　　　　　　　　　　　　　使用例１ 　　・――――――――――――――――――――・ 　　｜10 'PRINT"A=";A=INPUT;PRINT"B=";B=INPUT ｜ 　　｜20 'C=A+B;PRINT"A+B=",C,/ 　　　　　　　｜ 　　・――――――――――――――――――――・ (２)ＢＡＳＩＣモードで、 　　　　　EXEC&H2000[RET] 　　とします。 　　コンパイル・エラーを生じたときは、 　　エラーになった文を表示します。 　　(１)に戻って、エラーを修正します。 　　　　　　　　　　　　使用例２ 　　・――――――――――――――――――――・ 　　｜　EXEC&H2000 ｜ 　　｜ ｜ 　　｜　 K-COMPILER V1 ｜ 　　｜ ｜ 　　｜　COPYRIGHT 1982 ｜ 　　｜ ｜ 　　｜ ｜ 　　｜　COMPILING... ｜ 　　｜ ｜ 　　｜ ｜ 　　｜ ｜ 　　｜　OBJECT PROGRAM SIZE :54 ($0036) ｜ 　　｜ ｜ 　　｜　COMPILE END. ｜ 　　｜ ｜ 　　・――――――――――――――――――――・ (３)コンパイルが正常に終り、オブジェクトが作成されたら、 　　ＢＡＳＩＣモードで、 　　　　EXEC&H4000[RET] 　　で実行します。 　　実行終了後は、ＢＡＳＩＣモードに戻ります。 　　　　　　　　　　　　使用例３ 　　・――――――――――――――――――――・ 　　｜　EXEC&H4000 ｜ 　　｜　A=10 ｜ 　　｜　B=20 ｜ 　　｜　A+B=30 ｜ 　　｜　 ｜ 　　｜　Ready ｜ 　　・――――――――――――――――――――・ (４)実行させるには、ランタイム・ルーチンが必要です。 　　生成されるオブジェクトは、完全にリロケータブルになっています。 　　実行中の変数エリアは、$6C00からの 256バイトが使われます。 　　Ｋ　Compilerメモリ・マップ（FM-8版） 　　・――――――――――――――――――――・ 　　｜　　043D・―――――――・　　　　　　　｜ 　　｜　　　　｜一行入力ﾊﾞｯﾌｧ ｜　　　　　　　｜ 　　｜　　0CF3｜―――――――｜　　　　　　　｜ 　　｜　　　　｜ｿｰｽ・ﾃｷｽﾄ 　　｜←＄33，34の　｜ 　　｜　　2000｜―――――――｜　　　　内容　｜ 　　｜　　　　｜ｺﾝﾊﾟｲﾗ　　　　｜　　　　　　　｜ 　　｜　　4000｜―――――――｜　　　　　　　｜ 　　｜　　　　｜ｵﾌﾞｼﾞｪｸﾄ　　　｜　　　　　　　｜ 　　｜　　5700｜―――――――｜　　　　　　　｜ 　　｜　　　　｜ｺﾝﾊﾟｲﾗ･ﾜｰｸ　　｜　　　　　　　｜ 　　｜　　　　｜―――――――｜　　　　　　　｜ 　　｜　　　　｜ｽﾀｯｸ･ｴﾘｱ　　　｜　　　　　　　｜ 　　｜　　6C00｜―――――――｜　　　　　　　｜ 　　｜　　　　｜実行時変数ｴﾘｱ ｜　　　　　　　｜ 　　｜　　6D00｜―――――――｜　　　　　　　｜ 　　｜　　　　｜ﾗﾝﾀｲﾑ 　　　　｜　　　　　　　｜ 　　｜　　　　｜ﾙｰﾁﾝ　　　　　｜　　　　　　　｜ 　　｜　　6FFF・―――――――・　　　　　　　｜ 　　・――――――――――――――――――――・ ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝− 　　移植法（レベル３版） ＝−＝−＝−＝−＝−＝−＝−＝−＝−＝− 下記のアドレスを変更すれば、レベル３で動きます。 ・―――――――――――――――――――――――――――・ ｜アドレス｜内　容｜　　　　　　備　　　　考　　　　　　｜ ｜――――＋―――＋――――――――――――――――――｜ ｜　$210B ｜A4　　｜実行終了時出ロアドレス　　　　　　　｜ ｜　$2112 ｜38　　｜　　　　　　　　　　　　　　　　　　｜ ｜――――＋―――＋――――――――――――――――――｜ ｜　$200E ｜A4　　｜コンパイル終了時出ロアドレス　　　　｜ ｜　$200F ｜38　　｜　　　　　　　　　　　　　　　　　　｜ ｜――――＋―――＋――――――――――――――――――｜ ｜　$3DDC ｜1D　　｜テキスト・ポインタ・アドレス　　　　｜ ｜――――＋―――＋――――――――――――――――――｜ ｜　$6DE3 ｜02　　｜１行入力・バッファ・アドレス　　　　｜ ｜　$6DE4 ｜78　　｜　　　　　　　　　　　　　　　　　　｜ ｜――――＋―――＋――――――――――――――――――｜ ｜ $6F80〜｜ ﾘｽﾄ3 ｜入出力サブルーチン　　　　　　　　　｜ ・―――――――――――――――――――――――――――・ 操作法は、ＦＭ−８と同じですが、プログラム作成前に、 　　　NEWON15[ＲＥＴ]（80字モード）または、 　　　NEWON11[ＲＥＴ]（40字モード） を行なってください。 メモリ・マップは、ＦＭ−８版と同じです。 ■■■■■■■■■ランタイム・ルーチンＬ３版入出力部■■■■■■■■ ・―――――――――――――――――――――――――――――――――――――・ ｜ NAM INOUT ｜ ｜ * INPUT FROM DISPLAY ｜ ｜6F80 ORG $6F80 ｜ ｜6F80 34 7D INEE PSHS CC,B,DP,X,Y,U ｜ ｜6F82 86 00 LDA #$0 ｜ ｜6F84 1F 8B TFR A,DP ｜ ｜6F86 0F 9E CLR $9E ｜ ｜6F88 BD E804 JSR $E804 ｜ ｜6F8B 35 FD RET PULS CC,B,DP,X,Y,U,PC ｜ ｜ * OUTPUT TO DISPLAY ｜ ｜6F9B ORG $6F9B ｜ ｜6F9B 34 7F OUTEE PSHS CC,A,B,DP,X,Y,U ｜ ｜6F9D C6 00 LDB #$0 ｜ ｜6F9F 1F 9B TFR B,DP ｜ ｜6FA1 0F 9E CLR $9E ｜ ｜6FA3 BD E820 JSR $E820 ｜ ｜6FA6 35 FF PULS CC,A,B,DP,X,Y,U,PC ｜ ｜ * INPUT LINE FROM DISPLAY ｜ ｜6FB5 ORG $6FB5 ｜ ｜6FB5 34 7F INLINE PSHS CC,A,B,DP,X,Y,U ｜ ｜6FB7 86 00 LDA #$00 ｜ ｜6FB9 1F 8B TFR A,DP ｜ ｜6FBB BD DD50 JSR $DD50 ｜ ｜6FBE 8E 0278 LDX #$0278 ｜ ｜6FC1 A6 80 INLOOP LDA ,X+ ｜ ｜6FC3 81 00 CMPA #$00 ｜ ｜6FC5 26 FA 6FC1 BNE INLOOP ｜ ｜6FC7 86 0D LDA #$0D ｜ ｜6FC9 A7 82 STA ,-X ｜ ｜6FCB 35 FF PULS CC,A,B,DP,X,Y,U,PC ｜ ｜ END ｜ ・―――――――――――――――――――――――――――――――――――――・